*This file runs the regressions for Table A9



*Table A9, Panel A: Differential Impacts by Leasing Stats, Agriculture
*******************************************************************************
*******************************************************************************


eststo clear
*Baseline with no rezxt controls
reghdfe agpct post lease_post , absorb(ID stateXyear) cluster(TOWNSHIP)
sum agpct if e(sample) ==1
estadd scalar MDV = r(mean)
lincom  post + lease_post
estadd scalar diff = r(estimate)
estadd scalar se_diff = r(se)
estadd scalar pval = 2*normal(-abs(r(estimate)/r(se)))
est sto twfe_ag_lease_1

*off-rez population
reghdfe agpct post  lease_post offrespop , absorb(ID stateXyear) cluster(TOWNSHIP)
sum agpct if e(sample) ==1
estadd scalar MDV = r(mean)
lincom  post + lease_post
estadd scalar diff = r(estimate)
estadd scalar se_diff = r(se)
estadd scalar pval = 2*normal(-abs(r(estimate)/r(se)))
est sto twfe_ag_lease_2

*casinos
reghdfe agpct post  lease_post has_casino, absorb(ID stateXyear) cluster(TOWNSHIP)
sum agpct if e(sample) ==1
estadd scalar MDV = r(mean)
lincom  post + lease_post
estadd scalar diff = r(estimate)
estadd scalar se_diff = r(se)
estadd scalar pval = 2*normal(-abs(r(estimate)/r(se)))
est sto twfe_ag_lease_3

*credit
reghdfe agpct post lease_post has_credit, absorb(ID stateXyear) cluster(TOWNSHIP)
sum agpct if e(sample) ==1
estadd scalar MDV = r(mean)
lincom  post + lease_post
estadd scalar diff = r(estimate)
estadd scalar se_diff = r(se)
estadd scalar pval = 2*normal(-abs(r(estimate)/r(se)))
est sto twfe_ag_lease_4

*all rez-t controls
reghdfe agpct post lease_post offrespop has_casino has_credit, absorb(ID stateXyear) cluster(TOWNSHIP)
sum agpct if e(sample) ==1
estadd scalar MDV = r(mean)
lincom  post + lease_post
estadd scalar diff = r(estimate)
estadd scalar se_diff = r(se)
estadd scalar pval = 2*normal(-abs(r(estimate)/r(se)))
est sto twfe_ag_lease_5


esttab twfe_ag_lease*,  se(a3) b(a3) star(* 0.1 ** 0.05 *** 0.01) ar2  replace   scalar(N_clust M1 MDV diff pval)

*Table A9, Panel A: Differential Impacts by Leasing Stats, Development
*******************************************************************************
*******************************************************************************



eststo clear
*Baseline with no rezxt controls
reghdfe devpct post lease_post , absorb(ID stateXyear) cluster(TOWNSHIP)
sum devpct if e(sample) ==1
estadd scalar MDV = r(mean)
lincom  post + lease_post
estadd scalar diff = r(estimate)
estadd scalar se_diff = r(se)
estadd scalar pval = 2*normal(-abs(r(estimate)/r(se)))
est sto twfe_dev_lease_1

*off-rez population
reghdfe devpct post  lease_post offrespop , absorb(ID stateXyear) cluster(TOWNSHIP)
sum devpct if e(sample) ==1
estadd scalar MDV = r(mean)
lincom  post + lease_post
estadd scalar diff = r(estimate)
estadd scalar se_diff = r(se)
estadd scalar pval = 2*normal(-abs(r(estimate)/r(se)))
est sto twfe_dev_lease_2

*casinos
reghdfe devpct post  lease_post has_casino, absorb(ID stateXyear) cluster(TOWNSHIP)
sum devpct if e(sample) ==1
estadd scalar MDV = r(mean)
lincom  post + lease_post
estadd scalar diff = r(estimate)
estadd scalar se_diff = r(se)
estadd scalar pval = 2*normal(-abs(r(estimate)/r(se)))
est sto twfe_dev_lease_3

*credit
reghdfe devpct post lease_post has_credit, absorb(ID stateXyear) cluster(TOWNSHIP)
sum devpct if e(sample) ==1
estadd scalar MDV = r(mean)
lincom  post + lease_post
estadd scalar diff = r(estimate)
estadd scalar se_diff = r(se)
estadd scalar pval = 2*normal(-abs(r(estimate)/r(se)))
est sto twfe_dev_lease_4

*all rez-t controls
reghdfe devpct post lease_post offrespop has_casino has_credit, absorb(ID stateXyear) cluster(TOWNSHIP)
sum devpct if e(sample) ==1
estadd scalar MDV = r(mean)
lincom  post + lease_post
estadd scalar diff = r(estimate)
estadd scalar se_diff = r(se)
estadd scalar pval = 2*normal(-abs(r(estimate)/r(se)))
est sto twfe_dev_lease_5


esttab twfe_dev_lease*,  se(a3) b(a3) star(* 0.1 ** 0.05 *** 0.01) ar2  replace   scalar(N_clust M1 MDV diff pval)









